home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / dada.lha / dada / spiral.f < prev    next >
Encoding:
Text File  |  1995-02-26  |  581 b   |  17 lines
  1. [$  [$0>]["#."1-]#%\$4*[$0>]["#"1-]#
  2. %\  $[                            $1>
  3. ][  ".#"1-]#%"
  4. "$  [$  0>                    ][  "#."
  5. 1-  ]#  "#" %\4*2-[$0>]["."1- ]#  "#"
  6. %[  $1> ][  ".#"          1-  ]#  "
  7. "%  ]z  :[  $[  $0>]["#." 1-  ]#  %\
  8. $4* 2+  [$  0>  ][    "#" 1-  ]#  %\
  9. $[  $0> ][  ".#"1-]#  %"
  10. "$  [$  0>  ][        "#."1-  ]#  %\
  11. 4*  2+  [$  0>]["."1-]#%  [$  0>  ][
  12. ".#"1-  ]#                "
  13. "%  ]y  :[1 [1ø0>][1ø1øz;!1+  \1- \]
  14. #1- [$                        1_  >]
  15. [1ø 1øy;!1-\1+\]#]x:[$0\>~\9>~&]  a:
  16. [0^                               '0-
  17. [$a;!][\10*+^'0-]#]b:b;!%x;!